home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 05-11.C < prev    next >
Text File  |  1992-01-31  |  503b  |  30 lines
  1. #include <fastgraf.h>
  2.  
  3. void main(void);
  4.  
  5. void main()
  6. {
  7.    int old_mode;
  8.    int red, green, blue;
  9.  
  10.    old_mode = fg_getmode();
  11.    fg_setmode(19);
  12.  
  13.    fg_setcolor(103);
  14.    fg_text("Hello",5);
  15.    fg_waitfor(18);
  16.  
  17.    fg_getrgb(103,&red,&green,&blue);
  18.  
  19.    while (red+green+blue > 0) {
  20.       if (red > 0) red--;
  21.       if (green > 0) green--;
  22.       if (blue > 0) blue--;
  23.       fg_setrgb(103,red,green,blue);
  24.       fg_waitfor(1);
  25.       }
  26.  
  27.    fg_setmode(old_mode);
  28.    fg_reset();
  29. }
  30.